Loadstar 135/135.d81/create driver

Commodore BASIC | 2022-08-26 | 3KB | 126 lines

1 poke56,112:clr
2 poke53280,0:poke53281,0
3 print"[147]";:ln=60:dv=peek(186)
4 dimc(15):forx=0to15:readc(x):next
5 data 144,5,28,159,156,30,31,158,129
6 data 149,150,151,152,153,154,155
7 :
8 nm$=""
9 input"   screen to crunch";nm$
10 iflen(nm$)<1orlen(nm$)>16thenstop
11 open1,dv,15:open3,dv,3,nm$+",p,r"
12 input#1,a$,b$:ifa$="00"then15
13 print""b$:close3:close1:stop
14 :
15 cr$=""
16 input"basic screen driver";cr$
17 iflen(cr$)<1orlen(cr$)>16thenstop
18 open2,dv,2,cr$+",p,w"
19 input#1,a$,b$:ifa$="00"then22
20 print""b$:close2:close1:stop
21 :
22 print" loading ";nm$
23 a=28672:get#3,a$,b$
24 get#3,a$:pokea,asc(a$+chr$(0))
25 a=a+1:ifst=0then24
26 close3
27 :
28 r=0:a=28672:b=a+1024
29 print"creating ";cr$
30 forx=0to135:readc
31 print#2,chr$(c);:next
32 ifpeek(a+1004)<64then35
33 forx=0to53:readc
34 print#2,chr$(c);:next:goto36
35 forx=0to53:readc:next
36 tk=131
37 e=a+1000:gosub81
38 ifpeek(a+1004)<64then42
39 e=a+1001:gosub81
40 e=a+1002:gosub81
41 e=a+1003:gosub81
42 tk=153
43 a$=chr$(34)+"[147]"+chr$(34)+chr$(59)
44 gosub83
45 :
46 ls=20:forrw=1to49:gosub58:nextrw
47 ls=19:gosub58
48 tk=151
49 a$="30695,":e=29671:gosub82
50 a$="56295,":e=30695:gosub82
51 a$="53265,":e=29676:gosub82
52 forx=0to82:readc
53 print#2,chr$(c);:next
54 close2:close1
55 print"[192] okay [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
56 end
57 :
58 print#2,chr$(1)chr$(1);
59 print#2,chr$(lnand255);
60 print#2,chr$(int(ln/256));
61 print#2,chr$(153)chr$(34);
62 forcl=1tols
63 c=peek(a):d=peek(b)
64 ifd=ethen66
65 print#2,chr$(c(dand15));
66 ifc>127orr=0then68
67 r=0:print#2,chr$(146);
68 ifc<64andc>31then75
69 ifc<32thenc=c+64:goto75
70 ifc<96thenc=c+32:goto75
71 ifc<128thenc=c+64:goto75
72 c=cand127
73 ifr=0thenprint#2,chr$(18);
74 r=1:goto68
75 print#2,chr$(c);
76 a=a+1:b=b+1:e=d
77 nextcl
78 print#2,chr$(34)chr$(59)chr$(0);
79 ln=ln+5:return
80 :
81 a$=""
82 a$=a$+str$(peek(e))
83 print#2,chr$(1)chr$(1);
84 print#2,chr$(lnand255);
85 print#2,chr$(int(ln/256));
86 print#2,chr$(tk)a$chr$(0);
87 ln=ln+5:return
88 :
89 data 1,8
90 data 1,1,10,0,139,65,178,48
91 data 167,65,178,49,58,147,34,70
92 data 79,78,84,32,78,65,77,69
93 data 34,44,56,44,49,0,1,1
94 data 15,0,151,53,54,44,49,49
95 data 54,58,156,0,1,1,20,0
96 data 151,53,51,50,54,53,44,48
97 data 0,1,1,25,0,151,53,54
98 data 53,55,54,44,40,194,40,53
99 data 54,53,55,54,41,175,50,53
100 data 50,41,176,50,0,1,1,30
101 data 0,151,53,51,50,55,50,44
102 data 50,50,50,58,151,54,52,56
103 data 44,49,49,54,0,1,1,35
104 data 0,135,65,58,151,53,51,50
105 data 56,48,44,65,58,151,53,51
106 data 50,56,49,44,65,0,1,1
107 data 40,0,135,65,58,151,53,51
108 data 50,56,50,44,65,0,1,1
109 data 45,0,135,65,58,151,53,51
110 data 50,56,51,44,65,0,1,1
111 data 50,0,135,65,58,151,53,51
112 data 50,56,52,44,65,0,1,1
113 data 55,0,58,0
114 :
115 data 1,1,94,1,151,49,57,56
116 data 44,48,58,146,49,57,56,44
117 data 49,0,1,1,99,1,151,53
118 data 54,53,55,54,44,40,194,40
119 data 53,54,53,55,54,41,175,50
120 data 53,50,41,176,51,0,1,1
121 data 104,1,151,53,51,50,55,50
122 data 44,50,50,58,151,53,51,50
123 data 54,53,44,50,55,0,1,1
124 data 109,1,151,54,52,56,44,52
125 data 0,0,0